home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / N-R / Photone Prepress 2.04.cpt / Photone Prepress™v.2.04D.rsrc / PSTx_9_CompInkTest < prev    next >
Text File  |  1993-03-18  |  4KB  |  249 lines
  1.  
  2. %© 1990 by CEP, Inc.  All Rights Reserved.
  3. %Print ink calibration test patches as composite
  4.  
  5. /ppSetCScreen
  6. {
  7.     /cSpot exch def
  8.     /cAngle exch def
  9.     /cFreq exch def
  10. } def
  11.  
  12. /ppSetMScreen
  13. {
  14.     /mSpot exch def
  15.     /mAngle exch def
  16.     /mFreq exch def
  17. } def
  18.  
  19. /ppSetYScreen
  20. {    
  21.     /ySpot exch def
  22.     /yAngle exch def
  23.     /yFreq exch def
  24. } def
  25.  
  26. /ppSetKScreen
  27. {    /kSpot exch def
  28.     /kAngle exch def
  29.     /kFreq exch def
  30. } def
  31.  
  32.  
  33. /doSolid
  34. {
  35.     /ppBlk exch def
  36.     /ppYVal exch def
  37.     /ppMVal exch def
  38.     /ppCVal exch def
  39.     gsave
  40.         ppBlk 72 mul 50 add 680 translate
  41.         ppCVal ppMVal ppYVal 0 setcmykcolor
  42.         newpath
  43.             0 0 moveto
  44.             0 60 lineto
  45.             60 60 lineto
  46.             60 0 lineto
  47.         closepath
  48.         fill
  49.     grestore
  50.  
  51. } def
  52.  
  53. /doDivider
  54. {
  55.     gsave
  56.         50 670 translate
  57.         .24 setlinewidth
  58.         0 setgray
  59.         newpath
  60.             0 0 moveto
  61.             496 0 lineto
  62.         closepath
  63.         stroke
  64.         
  65.     grestore
  66.     
  67. } def
  68.  
  69. /doSquare
  70.     {    
  71.         /ppYVal exch def
  72.         /ppMVal exch def
  73.         /ppCVal exch def
  74.         -1 add /wid exch def
  75.         gsave
  76.             ppCVal ppMVal ppYVal 0 setcmykcolor
  77.             newpath
  78.                 0 0 moveto
  79.                 0 wid lineto
  80.                 wid wid lineto
  81.                 wid 0 lineto
  82.             closepath
  83.             fill
  84.         grestore
  85.     } bind def
  86.  
  87. /labelSquare
  88.     {    
  89.         /ppLgr exch def
  90.         /ppVal ppLgr round cvi def
  91.         gsave
  92.             0 0 moveto
  93.             ppVal (            ) cvs show
  94.         grestore
  95.     } bind def
  96.  
  97. /labelCyan
  98.     {    
  99.         /ppGVal exch def
  100.         /ppVVal exch def
  101.         /ppHVal exch def
  102.         /ppCg ppGVal 100 mul def
  103.         gsave
  104.             /Courier-Bold findfont 
  105.             12 scalefont setfont 
  106.             ppHVal ppVVal 20 add ppSVal add translate
  107.             0 0 moveto
  108.             1 0 0 0 setcmykcolor
  109.             ppCg round cvi (       ) cvs show
  110.             (% Cyan) show
  111.         grestore
  112.     } bind def
  113.  
  114. /labelMagenta
  115. %increment right
  116. {
  117.     /ppIncr exch def
  118.     /ppGVal exch def
  119.     /ppCnt exch def
  120.     /ppVVal exch def
  121.     /ppHVal exch def
  122.  
  123.     /ppSVal 24 def
  124.     /ppMg ppGVal 100 mul def
  125.     /mIncr ppIncr 100 mul def
  126.     /ppIndex ppCnt def
  127.     gsave
  128.         /Courier-Bold findfont 
  129.         9 scalefont setfont 
  130.         0 1 0 0 setcmykcolor
  131.         ppHVal 3 add ppVVal 4 ppSVal add add translate
  132.         0 0 moveto
  133.         0 1 ppIndex 1 sub 
  134.         {     pop 
  135.             ppMg labelSquare 
  136.             /ppMg ppMg mIncr sub def
  137.             ppSVal 0 translate 
  138.         } for 
  139.         
  140.     grestore
  141. } def
  142.  
  143. /labelYellow
  144. {
  145.     /ppIncr exch def
  146.     /ppGVal exch def
  147.     /ppCnt exch def
  148.     /ppVVal exch def
  149.     /ppHVal exch def
  150.  
  151.     /ppSVal 24 def
  152.     /ppYg ppGVal 100 mul def
  153.     /yIncr ppIncr 100 mul def
  154.     /ppIndex ppCnt def
  155.  
  156.     gsave
  157.         /Courier-Bold findfont 
  158.         9 scalefont setfont 
  159.         0 0 1 0 setcmykcolor
  160.         ppHVal 16 sub ppVVal 8 add translate
  161.         0 0 moveto
  162.         0 1 ppIndex 1 sub
  163.         {     pop 
  164.             ppYg labelSquare 
  165.             0 ppSVal neg translate 
  166.             /ppYg ppYg yIncr sub def
  167.         } for 
  168.         
  169.     grestore
  170. } def
  171.  
  172. /labelBlock
  173. {    
  174.     /ppIncr exch def
  175.     /ppGVal exch def
  176.     /ppCnt exch def
  177.     /ppVVal exch def
  178.     /ppHVal exch def
  179.     gsave 
  180.         ppHVal ppVVal ppGVal labelCyan
  181.         ppHVal ppVVal ppCnt ppGVal ppIncr labelMagenta
  182.         ppHVal ppVVal ppCnt ppGVal ppIncr labelYellow
  183.     
  184.     grestore
  185. } def
  186.  
  187. /doGrayBalance
  188. {    /ppIncr exch def
  189.     /ppGVal exch def
  190.     /blockCount exch def
  191.     /ppVVal exch def
  192.     /ppHVal exch def
  193.  
  194.     /ppSVal 24 def
  195.     /ppCVal ppGVal def
  196.     /ppMVal ppGVal def
  197.     /ppYVal ppGVal def
  198.  
  199.     /hIndex blockCount def
  200.     /vIndex blockCount def
  201.  
  202.     gsave 
  203.         cFreq cAngle {cSpot}
  204.         mFreq mAngle {mSpot}
  205.         yFreq yAngle {ySpot}
  206.         kFreq kAngle {kSpot}
  207.         setcolorscreen
  208.         ppHVal ppVVal translate 
  209.         0 1 vIndex 1 sub
  210.         {    pop  
  211.             gsave 
  212.                 /ppMVal ppGVal def
  213.                 0 1 hIndex 1 sub
  214.                 {     pop 
  215.                     ppSVal ppCVal ppMVal ppYVal doSquare 
  216.                     ppSVal 0 translate     
  217.                     /ppMVal ppMVal ppIncr sub def
  218.                 } for 
  219.              grestore 
  220.             /ppYVal ppYVal ppIncr sub def
  221.             0 ppSVal neg translate 
  222.         } for 
  223.     grestore 
  224.     ppHVal ppVVal blockCount ppGVal ppIncr labelBlock
  225. } bind def 
  226.  
  227.  
  228. /ppDoTest
  229. {
  230.     200 600 4 .05 .01 doGrayBalance
  231.     325 600 6 .15 .01 doGrayBalance
  232.     105 420 8 .25 .01 doGrayBalance
  233.     325 420 8 .50 .02 doGrayBalance
  234.     70 190 6 .75 .03 doGrayBalance
  235.     240 190 6 .85 .03 doGrayBalance
  236.     410 190 6 .95 .03 doGrayBalance
  237.  
  238.     1 0 0 0 doSolid    %cyan
  239.     1 1 0 1 doSolid    %blue
  240.     0 1 0 2 doSolid    %magenta
  241.     0 1 1 3 doSolid    %red
  242.     0 0 1 4 doSolid    %yellow
  243.     1 0 1 5 doSolid    %green
  244.     1 1 1 6 doSolid    %3 color
  245.  
  246.     doDivider
  247. } def
  248.  
  249.